home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / MENU2.TCL < prev    next >
Encoding:
Text File  |  2002-05-31  |  5.4 KB  |  142 lines
  1. #-------------------------------------------------------------------------------
  2. #   menu2.tcl
  3. #   =========
  4. #   (C) 2001 RadonLabs GmbH
  5. #-------------------------------------------------------------------------------
  6.  
  7. set entries_per_row     1
  8. set current_menu        null
  9. set current_entry       null
  10. set inputmapping_backup null
  11.  
  12. #-------------------------------------------------------------------------------
  13. #   init_menu
  14. #   Initialize the menu system.
  15. #-------------------------------------------------------------------------------
  16. proc init_menu {} {
  17.     puts "*** init_menu is OBSOLETE!"
  18. }
  19.  
  20. #-------------------------------------------------------------------------------
  21. #   show_current_entry
  22. #   Make the currently selected entry in the current menu visible.
  23. #-------------------------------------------------------------------------------
  24. proc show_current_entry {} {
  25.     puts "*** show_current_entry is OBSOLETE!"
  26. }
  27.  
  28. #-------------------------------------------------------------------------------
  29. #   hide_current_entry
  30. #   Make the currently selected entry in the current menu invisible.
  31. #-------------------------------------------------------------------------------
  32. proc hide_current_entry {} {
  33.     puts "*** hide_current_entry is OBSOLETE!"
  34. }
  35.  
  36. #-------------------------------------------------------------------------------
  37. #   show_current_menu
  38. #   Make the current menu visible. Called by open_menu, don't use directly!
  39. #-------------------------------------------------------------------------------
  40. proc show_current_menu {} {
  41.     puts "*** show_current_menu is OBSOLETE!"
  42. }
  43.  
  44. #-------------------------------------------------------------------------------
  45. #   hide_current_menu
  46. #   Make the current menu invisible. Called by close_menu, don't use directly!
  47. #-------------------------------------------------------------------------------
  48. proc hide_current_menu {} {
  49.     puts "*** hide_current_entry is OBSOLETE!"
  50. }
  51.  
  52. #-------------------------------------------------------------------------------
  53. #   private_open_menu $menuname $entries_per_row
  54. #   Open the requested menu and place cursor on first menu entry. The menu
  55. #   can also be a "2d" menu, in this case, give a value greater then
  56. #   1 to entries_per_row
  57. #-------------------------------------------------------------------------------
  58. proc private_open_menu {menuname epr} {
  59.     puts "*** private_open_menu is OBSOLETE!"
  60. }
  61.  
  62. #-------------------------------------------------------------------------------
  63. #   open_menu $menuname
  64. #   Frontend function to open a normal menu.
  65. #-------------------------------------------------------------------------------
  66. proc open_menu {menuname} {
  67.     puts "*** open_menu is OBSOLETE!"
  68. }
  69.  
  70. #-------------------------------------------------------------------------------
  71. #   open_panel $menuname $entries_per_row
  72. #   Frontend function to open a normal menu.
  73. #-------------------------------------------------------------------------------
  74. proc open_panel {menuname epr} {
  75.     puts "*** open_panel is OBSOLETE!"
  76. }
  77.  
  78. #-------------------------------------------------------------------------------
  79. #   close_menu
  80. #   Deactivate the current menu.
  81. #-------------------------------------------------------------------------------
  82. proc close_menu {} {
  83.     puts "*** close_menu is OBSOLETE!"
  84. }
  85.  
  86. #-------------------------------------------------------------------------------
  87. #   menu_clear $menuname
  88. #   Delete all menu entries in the given menu.
  89. #-------------------------------------------------------------------------------
  90. proc menu_clear {menuname} {
  91.     puts "*** menu_clear is OBSOLETE!"
  92. }
  93.  
  94. #-------------------------------------------------------------------------------
  95. #   menu_cancel
  96. #   Execute the cancel action associated with this menu.
  97. #-------------------------------------------------------------------------------
  98. proc menu_cancel {} {
  99.     puts "*** menu_cancel is OBSOLETE!"
  100. }
  101.  
  102. #-------------------------------------------------------------------------------
  103. #   menu_action
  104. #   Execute the action for the currently selected menu entry.
  105. #-------------------------------------------------------------------------------
  106. proc menu_action {} {
  107.     puts "*** menu_action is OBSOLETE!"
  108. }
  109.  
  110. #-------------------------------------------------------------------------------
  111. #   menu_down
  112. #   Make the next row entry in the menu current.
  113. #-------------------------------------------------------------------------------
  114. proc menu_down {} {
  115.     puts "*** menu_down is OBSOLETE!"
  116. }
  117.  
  118. #-------------------------------------------------------------------------------
  119. #   menu_up
  120. #   Make the previous row entry in the menu current.
  121. #-------------------------------------------------------------------------------
  122. proc menu_up {} {
  123.     puts "*** menu_up is OBSOLETE!"
  124. }
  125.  
  126. #-------------------------------------------------------------------------------
  127. #   menu_right
  128. #   Make the next entry in the menu current.
  129. #-------------------------------------------------------------------------------
  130. proc menu_right {} {
  131.     puts "*** menu_right is OBSOLETE!"
  132. }
  133.  
  134. #-------------------------------------------------------------------------------
  135. #   menu_left
  136. #   Make the previous entry in the menu current.
  137. #-------------------------------------------------------------------------------
  138. proc menu_left {} {
  139.     puts "*** menu_left is OBSOLETE!"
  140. }
  141.  
  142.